*---------------------------------------------------------------*
*****************************************************************
* * REPLICATION MATERIAL FOR TABLES & FIGURES and SUPPLEMENTARY CALCULATIONS
*****************************************************************
*---------------------------------------------------------------*

**************************************
*generated: 2025-11  

*by Lukas Rudolph
*
*modified: --
*
*Data used: us_ukraine_replication.dta
*Data output generated: --
*Tables generated: all empirical article and supplementary information tables
*Figutes generated: all empirical article and supplementary information tables 
**************************************

*---------------------------------------------------------------*
*****************************************************************
* * Prepare Stata
*****************************************************************
*---------------------------------------------------------------*

version 19 

******************************************************** 
/* required packages if not already installed 
findit estout      // by Ben Jann
findit coefplot    // by Ben Jann
findit grstyle     // by Ben Jann   
findit moremata    // by Ben Jann 
findit mhtreg      // by Andreas Steinmayr  */
******************************************************** 

********************************************************
*paths
********************************************************

*working directory
cd "" // set working directory to folder where you upload the replication files
// create subfolders with name "figures" and with name "tables"

*output directories
global fig = "figures"
global tab = "tables"

********************************************************
*initialize package for nice graphics
********************************************************

set scheme s2color   
grstyle init
grstyle set imesh
grstyle set symbol
grstyle set legend, nobox

********************************************************
*load data
********************************************************

*This data set is in long form, i.e., it contains (8) observations per respondent (given 2 tasks * 4 rounds for each respondent in the conjoint experiment). Whenever I draw on the vignette experiment or report respondent-level descriptives, I use the short version of the survey data. This is indicated by an if condition, using the "short" variable with short == 1 (gen short = task == 1 & concept == 1)

use "us_ukraine_replication.dta", clear



*---------------------------------------------------------------*
*****************************************************************
* MAIN MANUSCRIPT --FIGURES AND TABLES--
*****************************************************************
*---------------------------------------------------------------*

*******************************************************
 *FIGURE 1 
*******************************************************
*not generated in Stata, conceptual figure
	
*******************************************************
 *FIGURE 2 
*******************************************************
eststo clear 

mean Q12B_, over(joedonnot)
ttest Q12B_ if joedonnot < 3 , by(joedonnot)
sum Q12B_ if joedonnot < 3 

foreach x in 1 2  {
reg Q12B_  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  if joedonnot == `x'   [pweight=W8], cluster(id)

eststo partyid`x': margins  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  , post
}

coefplot (partyid1, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (partyid2, mc(sienna) msymbol(circle) ciopts(color(sienna))), baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(4)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Democrat" 4 "Republican")) name(two, replace) 
	 
	 
graph export "$fig\figure2.eps", replace 

*******************************************************
 *FIGURE 3
*******************************************************
eststo clear 

foreach x in 1 2 3 4 5 6 7 {
eststo no`x'joe: reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & joedonnot == 1 , cluster(id) 
// 
}
eststo no8joe: reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & joedonnot == 1 , cluster(id) // 
eststo no9joe: reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & joedonnot == 1 , cluster(id) // 


foreach x in 1 2 3 4 5 6 7 {
eststo no`x'don: reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & joedonnot == 2 , cluster(id) // 
// 
}
eststo no8don: reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & joedonnot == 2 , cluster(id) // 
eststo no9don: reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & joedonnot == 2 , cluster(id) // 

coefplot  /// 
 (no1joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) /// 
 (no2joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no3joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no4joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no5joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no6joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no7joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no8joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no9joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no1don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no2don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no3don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no4don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no5don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no6don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no7don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no8don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no9don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
, baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall))   legend(row(1) symysize(vsmall) size(vsmall) order(2 "Democrat" 20 "Republican")) name(one, replace) 

	 graph export "$fig\figure3.eps", replace
	 
**F-test
reg choice  (ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task)##i.joedonnot if joedonnot <= 2   [pweight=W8],  cluster(id)

testparm  2.q2_attr1_concept_task#2.joedonnot 3.q2_attr1_concept_task#2.joedonnot 2.q2_attr2_concept_task#2.joedonnot 3.q2_attr2_concept_task#2.joedonnot 2.q2_attr3_concept_task#2.joedonnot 3.q2_attr3_concept_task#2.joedonnot 2.q2_attr4_concept_task#2.joedonnot 3.q2_attr4_concept_task#2.joedonnot 2.q2_attr5_concept_task#2.joedonnot 3.q2_attr5_concept_task#2.joedonnot 2.q2_attr6_concept_task#2.joedonnot 3.q2_attr6_concept_task#2.joedonnot 2.q2_attr7_concept_task#2.joedonnot 3.q2_attr7_concept_task#2.joedonnot 2.q2_attr8_concept_task#2.joedonnot 3.q2_attr8_concept_task#2.joedonnot  4.q2_attr8_concept_task#2.joedonnot  2.q2_attr9_concept_task#2.joedonnot 3.q2_attr9_concept_task#2.joedonnot 2.joedonnot

*******************************************************
 *FIGURE 4
*******************************************************
eststo clear 

foreach x in 1 2  {
foreach y in 1 2 3 4 5 6 7 {
eststo partyid`x'attr`y' : reg choice  ib3.q2_attr`y'_concept_task [pweight=W8] if cooccurence_attr`y'!=1 & strongright == `x' & joe == 2, cluster(id) 
}
eststo partyid`x'attr8: reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & strongright == `x' & joe == 2 , cluster(id)
eststo partyid`x'attr9: reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & strongright == `x' & joe == 2 , cluster(id)
}

coefplot  ///
(partyid1attr1, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr2, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr3, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr4, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr5, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr6, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr7, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr8, mc(orange) msymbol(triangle) ciopts(color(orange)))  ///	
(partyid1attr9, mc(orange) msymbol(triangle) ciopts(color(orange)))  ///
partyid2attr1	partyid2attr2	partyid2attr3	partyid2attr4	partyid2attr5	partyid2attr6	partyid2attr7	partyid2attr8 partyid2attr9 /// 
, msymbol(circle) mc(sienna) ciopts(color(sienna)) baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Moderate Republican" 22 "Strong Republican")) name(two, replace) 

	 	 graph export "$fig\figure4.eps", replace

**F-test
reg choice  (ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task)##i.strongright if joedonnot == 2   [pweight=W8], cluster(id)
				
testparm  2.q2_attr1_concept_task#2.strongright 3.q2_attr1_concept_task#2.strongright 2.q2_attr2_concept_task#2.strongright 3.q2_attr2_concept_task#2.strongright 2.q2_attr3_concept_task#2.strongright 3.q2_attr3_concept_task#2.strongright 2.q2_attr4_concept_task#2.strongright 3.q2_attr4_concept_task#2.strongright 2.q2_attr5_concept_task#2.strongright 3.q2_attr5_concept_task#2.strongright 2.q2_attr6_concept_task#2.strongright 3.q2_attr6_concept_task#2.strongright 2.q2_attr7_concept_task#2.strongright 3.q2_attr7_concept_task#2.strongright 2.q2_attr8_concept_task#2.strongright 3.q2_attr8_concept_task#2.strongright  4.q2_attr8_concept_task#2.strongright  2.q2_attr9_concept_task#2.strongright 3.q2_attr9_concept_task#2.strongright 2.strongright

reg choice  (ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task)##i.strongright if joedonnot == 2   [pweight=W8], cluster(id)
	
test 2.q2_attr1_concept_task#2.strongright 3.q2_attr1_concept_task#2.strongright 2.q2_attr2_concept_task#2.strongright 3.q2_attr2_concept_task#2.strongright 2.q2_attr3_concept_task#2.strongright 3.q2_attr3_concept_task#2.strongright 2.q2_attr4_concept_task#2.strongright 3.q2_attr4_concept_task#2.strongright 2.q2_attr5_concept_task#2.strongright 3.q2_attr5_concept_task#2.strongright 2.q2_attr6_concept_task#2.strongright 3.q2_attr6_concept_task#2.strongright 2.q2_attr7_concept_task#2.strongright 3.q2_attr7_concept_task#2.strongright 2.q2_attr8_concept_task#2.strongright 3.q2_attr8_concept_task#2.strongright  4.q2_attr8_concept_task#2.strongright  2.q2_attr9_concept_task#2.strongright 3.q2_attr9_concept_task#2.strongright , mtest(sidak)

*******************************************************
 *FIGURE 5 (VIGNETTE)
*******************************************************
eststo clear 

foreach y in 1 2  {
	local lab1: label (joedonnot) `y' 
reg Q13n_1_1 i.vign##i.joedonnot if short & joedonnot <= 2 [pweight=W8], r
eststo `lab1':  margins  i.vign   , at(joedonnot = (`y')) post
}

coefplot  (Democrat, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (Republican, mc(sienna) msymbol(circle) ciopts(color(sienna))) , base drop(_cons)  xlabel(2.5(.5)5.5) label xline(4) subtitle(Support Ukraine with... (1 (disagree)/ 7 (agree))) aspectratio(0.6)

graph export "$fig\figure5.eps", replace
		 
*******************************************************
 *FIGURE 6 (VIGNETTE)
*******************************************************
eststo clear 

foreach y in 2 3 6 1 4 5 {
foreach x in 1 2 {
reg q13_2_`y' i.vign if short & joedonnot==`x' [pweight=W8], r
eststo model`y'`x': margins  i.vign  , post
}
}

*ratings main effect
coefplot  (model21, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (model22, mc(sienna) msymbol(circle) ciopts(color(sienna))), bylabel("higher Ukr winning chance") || model31 model32  , bylabel("higher WW3 risk")   || model61 model62 , bylabel("quicker war ending") ///
 scheme(s1color) drop(_cons) xline(4, lpattern(solid))  byopts(style(compact) cols(1) )  xsize(1) ysize(1.5) xlabel(2.5(.5)5.5,  grid) ///
   grid( glstyle(minor_grid) glcolor(gray)) /// 
legend(size(small) region(lcolor(white)) order(2 "Democrat" 4 "Republican") cols(4))  base /// 
levels(95  ) /// 
name(one, replace) 

coefplot   (model11, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (model12, mc(sienna) msymbol(circle) ciopts(color(sienna)))  , bylabel("more Ukr suffering/destruction") ||  model41 model42  , bylabel("more refugees" ) || model51 model52 , bylabel("domestic economic disadvantages")      ///
 scheme(s1color) drop(_cons) xline(4, lpattern(solid))  byopts(style(compact) cols(1) )  xsize(1) ysize(1.5) xlabel(2.5(.5)5.5,  grid) ///
   grid( glstyle(minor_grid) glcolor(gray)) /// 
legend(size(small) region(lcolor(white)) order(2 "Democrat" 4 "Republican") cols(4))  base /// 
levels(95  ) ///  
name(two, replace)  

graph combine one two, t2title("This support leads to... (1 (not at all) / 7 (certainly))", size(small))

graph export "$fig\figure6.eps", replace

*---------------------------------------------------------------*
*****************************************************************
* Supplementary Material --FIGURES AND TABLES--
*****************************************************************
*---------------------------------------------------------------*
	
	
*******************************************************
* 1. Supplementary material for research design section
*******************************************************

*******************************************************
 *TABLE SM.1
*******************************************************
eststo one: estpost ttest male age region? edu_cat? employment? hh_size hh_income pol_int religion? white if joedonnot <= 2 & task == 1 & concept == 1, by(joedonnot)
eststo two: estpost ttest male age region? edu_cat? employment? hh_size hh_income pol_int religion? white if joedonnot == 2 & task == 1 & concept == 1, by(strongright)
esttab one two using "$tab\balance.tex" /// 
, replace se label cells("N_1 mu_1(pattern(1 1) fmt(2)) N_2 mu_2(pattern(1 1) fmt(2)) b(pattern(1 1) fmt(2)) p(pattern(1 1) fmt(3))") ///
collabels( "N" "Democrat" "N" "Republican" "Diff." "p-value (diff)" "N" "Moderate Republican" "N" "Strong Republican" "Diff." "p-value (diff)") gaps noobs compress

*******************************************************
 *FIGURE SM.1 
*******************************************************


eststo clear
foreach y in 1 2 3 4 {
 
eststo task_`y' : ///
reg choice  ib3.q2_attr1_concept_task ib3.q2_attr2_concept_task ib3.q2_attr3_concept_task ib3.q2_attr4_concept_task ib3.q2_attr5_concept_task  ib3.q2_attr6_concept_task ib3.q2_attr7_concept_task ib4.q2_attr8_concept_task  ib3.q2_attr9_concept_task  if task_no == `y' & joedonnot <=2 [pweight=W8], cluster(id)
}

foreach y in 1 2 3 4 {
 
eststo task_`y'_dem : ///
reg choice  ib3.q2_attr1_concept_task ib3.q2_attr2_concept_task ib3.q2_attr3_concept_task ib3.q2_attr4_concept_task ib3.q2_attr5_concept_task  ib3.q2_attr6_concept_task ib3.q2_attr7_concept_task ib4.q2_attr8_concept_task  ib3.q2_attr9_concept_task  if task_no == `y' & joedonnot ==1 [pweight=W8], cluster(id)
}
 
 
 foreach y in 1 2 3 4 {
 
eststo task_`y'_rep : ///
reg choice  ib3.q2_attr1_concept_task ib3.q2_attr2_concept_task ib3.q2_attr3_concept_task ib3.q2_attr4_concept_task ib3.q2_attr5_concept_task  ib3.q2_attr6_concept_task ib3.q2_attr7_concept_task ib4.q2_attr8_concept_task  ib3.q2_attr9_concept_task  if task_no == `y' & joedonnot ==2 [pweight=W8], cluster(id)
}
 

coefplot task_1 task_2 task_2 task_4 , bylabel(All voters) || task_1_dem task_2_dem task_3_dem task_4_dem, bylabel(Democrats) || task_1_rep task_2_rep task_3_rep task_4_rep, subtitle(, size(small)) bylabel(Republicans) byopts(  rows(1)) baselevel drop(_cons) xline(0) ysize(35) xsize(20)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall))  ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall)) //  
	 
	 
graph export "$fig\FigureSM1.eps", replace 

*F test
reg choice (ib3.q2_attr1_concept_task ib3.q2_attr2_concept_task ib3.q2_attr3_concept_task ib3.q2_attr4_concept_task ib3.q2_attr5_concept_task  ib3.q2_attr6_concept_task ib3.q2_attr7_concept_task ib4.q2_attr8_concept_task  ib3.q2_attr9_concept_task)##i.task_no  [pweight=W8], cluster(id)

testparm  ///
  2.q2_attr1_concept_task#2.task_no 1.q2_attr1_concept_task#2.task_no 2.q2_attr2_concept_task#2.task_no 1.q2_attr2_concept_task#2.task_no 2.q2_attr3_concept_task#2.task_no 1.q2_attr3_concept_task#2.task_no 2.q2_attr4_concept_task#2.task_no 1.q2_attr4_concept_task#2.task_no 2.q2_attr5_concept_task#2.task_no 1.q2_attr5_concept_task#2.task_no 2.q2_attr6_concept_task#2.task_no 3.q2_attr6_concept_task#2.task_no 2.q2_attr7_concept_task#2.task_no 1.q2_attr7_concept_task#2.task_no 2.q2_attr8_concept_task#2.task_no 1.q2_attr8_concept_task#2.task_no  3.q2_attr8_concept_task#2.task_no  2.q2_attr9_concept_task#2.task_no 1.q2_attr9_concept_task#2.task_no  ///
  2.q2_attr1_concept_task#3.task_no 1.q2_attr1_concept_task#3.task_no 2.q2_attr2_concept_task#3.task_no 1.q2_attr2_concept_task#3.task_no 2.q2_attr3_concept_task#3.task_no 1.q2_attr3_concept_task#3.task_no 2.q2_attr4_concept_task#3.task_no 1.q2_attr4_concept_task#3.task_no 2.q2_attr5_concept_task#3.task_no 1.q2_attr5_concept_task#3.task_no 2.q2_attr6_concept_task#3.task_no 3.q2_attr6_concept_task#3.task_no 2.q2_attr7_concept_task#3.task_no 1.q2_attr7_concept_task#3.task_no 2.q2_attr8_concept_task#3.task_no 1.q2_attr8_concept_task#3.task_no  3.q2_attr8_concept_task#3.task_no  2.q2_attr9_concept_task#3.task_no 1.q2_attr9_concept_task#3.task_no ///
  2.q2_attr1_concept_task#4.task_no 1.q2_attr1_concept_task#4.task_no 2.q2_attr2_concept_task#4.task_no 1.q2_attr2_concept_task#4.task_no 2.q2_attr3_concept_task#4.task_no 1.q2_attr3_concept_task#4.task_no 2.q2_attr4_concept_task#4.task_no 1.q2_attr4_concept_task#4.task_no 2.q2_attr5_concept_task#4.task_no 1.q2_attr5_concept_task#4.task_no 2.q2_attr6_concept_task#4.task_no 3.q2_attr6_concept_task#4.task_no 2.q2_attr7_concept_task#4.task_no 1.q2_attr7_concept_task#4.task_no 2.q2_attr8_concept_task#4.task_no 1.q2_attr8_concept_task#4.task_no  3.q2_attr8_concept_task#4.task_no  2.q2_attr9_concept_task#4.task_no 1.q2_attr9_concept_task#4.task_no
// 

*p=0.5144

testparm  ///
  2.q2_attr1_concept_task#2.task_no 1.q2_attr1_concept_task#2.task_no 2.q2_attr2_concept_task#2.task_no 1.q2_attr2_concept_task#2.task_no 2.q2_attr3_concept_task#2.task_no 1.q2_attr3_concept_task#2.task_no 2.q2_attr4_concept_task#2.task_no 1.q2_attr4_concept_task#2.task_no 2.q2_attr5_concept_task#2.task_no 1.q2_attr5_concept_task#2.task_no 2.q2_attr6_concept_task#2.task_no 3.q2_attr6_concept_task#2.task_no 2.q2_attr7_concept_task#2.task_no 1.q2_attr7_concept_task#2.task_no 2.q2_attr8_concept_task#2.task_no 1.q2_attr8_concept_task#2.task_no  3.q2_attr8_concept_task#2.task_no  2.q2_attr9_concept_task#2.task_no 1.q2_attr9_concept_task#2.task_no  
 
  testparm  ///
  2.q2_attr1_concept_task#3.task_no 1.q2_attr1_concept_task#3.task_no 2.q2_attr2_concept_task#3.task_no 1.q2_attr2_concept_task#3.task_no 2.q2_attr3_concept_task#3.task_no 1.q2_attr3_concept_task#3.task_no 2.q2_attr4_concept_task#3.task_no 1.q2_attr4_concept_task#3.task_no 2.q2_attr5_concept_task#3.task_no 1.q2_attr5_concept_task#3.task_no 2.q2_attr6_concept_task#3.task_no 3.q2_attr6_concept_task#3.task_no 2.q2_attr7_concept_task#3.task_no 1.q2_attr7_concept_task#3.task_no 2.q2_attr8_concept_task#3.task_no 1.q2_attr8_concept_task#3.task_no  3.q2_attr8_concept_task#3.task_no  2.q2_attr9_concept_task#3.task_no 1.q2_attr9_concept_task#3.task_no 
  
    testparm  ///
  2.q2_attr1_concept_task#4.task_no 1.q2_attr1_concept_task#4.task_no 2.q2_attr2_concept_task#4.task_no 1.q2_attr2_concept_task#4.task_no 2.q2_attr3_concept_task#4.task_no 1.q2_attr3_concept_task#4.task_no 2.q2_attr4_concept_task#4.task_no 1.q2_attr4_concept_task#4.task_no 2.q2_attr5_concept_task#4.task_no 1.q2_attr5_concept_task#4.task_no 2.q2_attr6_concept_task#4.task_no 3.q2_attr6_concept_task#4.task_no 2.q2_attr7_concept_task#4.task_no 1.q2_attr7_concept_task#4.task_no 2.q2_attr8_concept_task#4.task_no 1.q2_attr8_concept_task#4.task_no  3.q2_attr8_concept_task#4.task_no  2.q2_attr9_concept_task#4.task_no 1.q2_attr9_concept_task#4.task_no

*0.2851 task 4 ; 0.5388 task 3 ; 0.1297 task 2


*******************************************************
* 2. Supplementary results
*******************************************************

*******************************************************
 *FIGURE SM.2  
*******************************************************
eststo clear 

foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & joedonnot == 1 , cluster(id) 
eststo no`x'joe:  margins ib3.q2_attr`x'_concept_task, post
}
reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & joedonnot == 1 , cluster(id) // 
eststo no8joe:  margins ib3.q2_attr8_concept_task, post
reg choice  ib4.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & joedonnot == 1 , cluster(id) // 
eststo no9joe:  margins ib3.q2_attr9_concept_task, post


foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & joedonnot == 2 , cluster(id) // 
eststo no`x'don:   margins ib3.q2_attr`x'_concept_task, post 
}
reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & joedonnot == 2 , cluster(id) // 
eststo no8don: margins ib3.q2_attr8_concept_task, post
reg choice  ib4.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & joedonnot == 2 , cluster(id) // 
eststo no9don: margins ib3.q2_attr9_concept_task, post

coefplot  ///  
 (no1joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) /// 
 (no2joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no3joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no4joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no5joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no6joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no7joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no8joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no9joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no1don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no2don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no3don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no4don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no5don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no6don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no7don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no8don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no9don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 , baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) legend(row(1) symysize(vsmall) size(vsmall) order(2 "Democrat" 22 "Republican")) name(one, replace) 

 	 graph export "$fig\FigureSM2.eps", replace

*******************************************************
 *TABLE SM.2  
*******************************************************
eststo clear
eststo m1: reg choice ib3.q2_attr1_concept_task##i.joedonnot if cooccurence_attr1!=1 & joedonnot <= 2  , cluster(id)
testparm  2.q2_attr1_concept_task#2.joedonnot 1.q2_attr1_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m2: reg choice ib3.q2_attr2_concept_task##i.joedonnot if cooccurence_attr2!=1 & joedonnot <= 2  , cluster(id)
testparm  2.q2_attr2_concept_task#2.joedonnot 1.q2_attr2_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m3: reg choice ib3.q2_attr3_concept_task##i.joedonnot if cooccurence_attr3!=1 & joedonnot <= 2  , cluster(id)
testparm  2.q2_attr3_concept_task#2.joedonnot 1.q2_attr3_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m4: reg choice ib3.q2_attr4_concept_task##i.joedonnot if cooccurence_attr4!=1 & joedonnot <= 2  , cluster(id)
testparm  2.q2_attr4_concept_task#2.joedonnot 1.q2_attr4_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m5: reg choice ib3.q2_attr5_concept_task##i.joedonnot if cooccurence_attr5!=1 & joedonnot <= 2  , cluster(id)
testparm  2.q2_attr5_concept_task#2.joedonnot 1.q2_attr5_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m6: reg choice ib3.q2_attr6_concept_task##i.joedonnot if cooccurence_attr6!=1  & joedonnot <= 2 , cluster(id)
testparm  2.q2_attr6_concept_task#2.joedonnot 1.q2_attr6_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m7: reg choice ib3.q2_attr7_concept_task##i.joedonnot if cooccurence_attr7!=1 & joedonnot <= 2  , cluster(id)
testparm  2.q2_attr7_concept_task#2.joedonnot 1.q2_attr7_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m8: reg choice ib4.q2_attr8_concept_task##i.joedonnot if cooccurence_attr8!=1  & joedonnot <= 2 , cluster(id)
testparm  2.q2_attr8_concept_task#2.joedonnot 1.q2_attr8_concept_task#2.joedonnot 3.q2_attr8_concept_task#2.joedonnot
estadd scalar p_Ftest = r(p)  

eststo m9: reg choice ib3.q2_attr9_concept_task##i.joedonnot if cooccurence_attr9!=1 & joedonnot <= 2   , cluster(id)
testparm  2.q2_attr9_concept_task#2.joedonnot 1.q2_attr9_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p)  

eststo m10: reg choice ib3.q2_attr1_concept_task##i.joedonnot ib3.q2_attr2_concept_task##i.joedonnot ib3.q2_attr3_concept_task##i.joedonnot ib3.q2_attr4_concept_task##i.joedonnot ib3.q2_attr5_concept_task##i.joedonnot ib3.q2_attr5_concept_task##i.joedonnot ib3.q2_attr6_concept_task##i.joedonnot ib3.q2_attr7_concept_task##i.joedonnot ib4.q2_attr8_concept_task##i.joedonnot ib3.q2_attr9_concept_task##i.joedonnot if   joedonnot <= 2  , cluster(id)
testparm  2.q2_attr1_concept_task#2.joedonnot 1.q2_attr1_concept_task#2.joedonnot 2.q2_attr2_concept_task#2.joedonnot 1.q2_attr2_concept_task#2.joedonnot 2.q2_attr3_concept_task#2.joedonnot 1.q2_attr3_concept_task#2.joedonnot 2.q2_attr4_concept_task#2.joedonnot 1.q2_attr4_concept_task#2.joedonnot 2.q2_attr5_concept_task#2.joedonnot 1.q2_attr5_concept_task#2.joedonnot 2.q2_attr6_concept_task#2.joedonnot 3.q2_attr6_concept_task#2.joedonnot 2.q2_attr7_concept_task#2.joedonnot 1.q2_attr7_concept_task#2.joedonnot 2.q2_attr8_concept_task#2.joedonnot 1.q2_attr8_concept_task#2.joedonnot  3.q2_attr8_concept_task#2.joedonnot  2.q2_attr9_concept_task#2.joedonnot 1.q2_attr9_concept_task#2.joedonnot 
estadd scalar p_Ftest = r(p) : m10

esttab    using $tab\TableSM2.tex /// 
, replace nobase stats(p_Ftest) noomitted p nostar label order(  *.q2_attr?_concept_task* 2.joedonnot)    /// 
refcat( ///
            1.q2_attr1_concept_task "\textit{Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task "\textit{Russian military casualties}" /// /// 
			1.q2_attr3_concept_task "\textit{Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task "\textit{Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task "\textit{US military aid}" /// /// 
			1.q2_attr6_concept_task "\textit{US economic aid}" /// 
			1.q2_attr7_concept_task "\textit{Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task "\textit{Concessions}"                /// 
			1.q2_attr9_concept_task "\textit{Sovereignty}"                /// 
			1.joedonnot "\textit{Republican leaning}"                /// 
			1.q2_attr1_concept_task#1.joedonnot "\textit{Interaction effects (in order of main eff.)}"                /// 
			, nolab )

*******************************************************
 *TABLE SM.3  
*******************************************************
eststo clear 

foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task##i.joedonnot [pweight=W8] if cooccurence_attr`x'!=1 &  joedonnot <= 2 , cluster(id) 
eststo no`x':  margins ib3.q2_attr`x'_concept_task, post dydx(joedonnot)
}
reg choice  ib4.q2_attr8_concept_task##i.joedonnot [pweight=W8] if cooccurence_attr8!=1 &  joedonnot <= 2 , cluster(id) // 
eststo no8:  margins ib3.q2_attr8_concept_task, post dydx(joedonnot)
reg choice  ib4.q2_attr9_concept_task##i.joedonnot [pweight=W8] if cooccurence_attr9!=1 &  joedonnot <= 2 , cluster(id) // 
eststo no9:  margins ib3.q2_attr9_concept_task, post dydx(joedonnot)

esttab no?   using $tab\TableSM3.tex ///
, label replace nostar p noomitted  ///  
refcat( ///
            1.q2_attr1_concept_task "\textit{Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task "\textit{Russian military casualties}" /// /// 
			1.q2_attr3_concept_task "\textit{Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task "\textit{Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task "\textit{US military aid}" /// /// 
			1.q2_attr6_concept_task "\textit{US economic aid}" /// 
			1.q2_attr7_concept_task "\textit{Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task "\textit{Concessions}"                /// 
			1.q2_attr9_concept_task "\textit{Sovereignty}"                /// 
			1.joedonnot "\textit{Ideology}"                /// 
			1.q2_attr1_concept_task#1.joedonnot "\textit{Interaction effects (in order of main eff.)}"                /// 
			, nolab )

*******************************************************
 *TABLE SM.4  
*******************************************************
eststo clear
eststo Democrats: reg choice c.econ ib1.q2_attr8_concept_task ib1.q2_attr9_concept_task [pweight=W8] if joedonnot == 1, cluster(id)
 eststo Republicans: reg choice c.econ ib1.q2_attr8_concept_task ib1.q2_attr9_concept_task [pweight=W8] if joedonnot == 2, cluster(id)

 esttab Democrats Republicans using $tab\TableSM4.tex ///
 , replace label p nostar mtitles( "Democrat (choice)" "Republican (choice)" )

*willingness to pay calculation
di (-.114/-.0478*0.1)
di (-.124/-.0478*0.1)
di (-.140/-.0140*0.1)
di (-.215/-.0140*0.1)

*******************************************************
 *FIGURE SM.3  
*******************************************************
eststo clear 

foreach x in 1 2  {
foreach y in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`y'_concept_task [pweight=W8] if cooccurence_attr`y'!=1 & strongright == `x' & joe == 2, cluster(id) 
eststo partyid`x'attr`y' : margins ib3.q2_attr`y'_concept_task, post
}

reg choice ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & strongright == `x' & joe == 2 , cluster(id)
eststo partyid`x'attr8: margins ib4.q2_attr8_concept_task, post

reg choice ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & strongright == `x' & joe == 2 , cluster(id)
eststo partyid`x'attr9: margins ib3.q2_attr9_concept_task, post
}

coefplot  ///
(partyid1attr1, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr2, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr3, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr4, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr5, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr6, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr7, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr8, mc(orange) msymbol(triangle) ciopts(color(orange)))  ///	
(partyid1attr9, mc(orange) msymbol(triangle) ciopts(color(orange)))  ///
partyid2attr1	partyid2attr2	partyid2attr3	partyid2attr4	partyid2attr5	partyid2attr6	partyid2attr7	partyid2attr8 partyid2attr9 /// 
, msymbol(circle)  mc(sienna) ciopts(color(sienna)) baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Moderate Republican" 22 "Strong Republican")) name(two, replace) 
 
  	 graph export "$fig\FigureSM3.eps", replace 

*******************************************************
 *TABLE SM.5  
*******************************************************
eststo clear
eststo m1: reg choice ib3.q2_attr1_concept_task##i.strongright if cooccurence_attr1!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr1_concept_task#2.strongright 1.q2_attr1_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m2: reg choice ib3.q2_attr2_concept_task##i.strongright if cooccurence_attr2!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr2_concept_task#2.strongright 1.q2_attr2_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m3: reg choice ib3.q2_attr3_concept_task##i.strongright if cooccurence_attr3!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr3_concept_task#2.strongright 1.q2_attr3_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m4: reg choice ib3.q2_attr4_concept_task##i.strongright if cooccurence_attr4!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr4_concept_task#2.strongright 1.q2_attr4_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m5: reg choice ib3.q2_attr5_concept_task##i.strongright if cooccurence_attr5!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr5_concept_task#2.strongright 1.q2_attr5_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m6: reg choice ib3.q2_attr6_concept_task##i.strongright if cooccurence_attr6!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr6_concept_task#2.strongright 1.q2_attr6_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m7: reg choice ib3.q2_attr7_concept_task##i.strongright if cooccurence_attr7!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr7_concept_task#2.strongright 1.q2_attr7_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m8: reg choice ib4.q2_attr8_concept_task##i.strongright if cooccurence_attr8!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr8_concept_task#2.strongright 1.q2_attr8_concept_task#2.strongright 3.q2_attr8_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m9: reg choice ib3.q2_attr9_concept_task##i.strongright if cooccurence_attr9!=1 & joedonnot == 2  , cluster(id)
testparm  2.q2_attr9_concept_task#2.strongright 1.q2_attr9_concept_task#2.strongright 
estadd scalar p_Ftest = r(p)  

eststo m10: reg choice ib3.q2_attr1_concept_task##i.strongright ib3.q2_attr2_concept_task##i.strongright ib3.q2_attr3_concept_task##i.strongright ib3.q2_attr4_concept_task##i.strongright ib3.q2_attr5_concept_task##i.strongright ib3.q2_attr5_concept_task##i.strongright ib3.q2_attr6_concept_task##i.strongright ib3.q2_attr7_concept_task##i.strongright ib4.q2_attr8_concept_task##i.strongright ib3.q2_attr9_concept_task##i.strongright if   joedonnot == 2  , cluster(id)
testparm  2.q2_attr1_concept_task#2.strongright 1.q2_attr1_concept_task#2.strongright 2.q2_attr2_concept_task#2.strongright 1.q2_attr2_concept_task#2.strongright 2.q2_attr3_concept_task#2.strongright 1.q2_attr3_concept_task#2.strongright 2.q2_attr4_concept_task#2.strongright 1.q2_attr4_concept_task#2.strongright 2.q2_attr5_concept_task#2.strongright 1.q2_attr5_concept_task#2.strongright 2.q2_attr6_concept_task#2.strongright 3.q2_attr6_concept_task#2.strongright 2.q2_attr7_concept_task#2.strongright 1.q2_attr7_concept_task#2.strongright 2.q2_attr8_concept_task#2.strongright 1.q2_attr8_concept_task#2.strongright  3.q2_attr8_concept_task#2.strongright  2.q2_attr9_concept_task#2.strongright 1.q2_attr9_concept_task#2.strongright 
estadd scalar p_Ftest = r(p) : m10

esttab    using $tab\TableSM5.tex /// 
, nobase stats(p_Ftest) noomitted nostar p label order(  *.q2_attr?_concept_task* 2.strongright)    /// 
refcat( ///
            1.q2_attr1_concept_task "\textit{Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task "\textit{Russian military casualties}" /// /// 
			1.q2_attr3_concept_task "\textit{Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task "\textit{Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task "\textit{US military aid}" /// /// 
			1.q2_attr6_concept_task "\textit{US economic aid}" /// 
			1.q2_attr7_concept_task "\textit{Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task "\textit{Concessions}"                /// 
			1.q2_attr9_concept_task "\textit{Sovereignty}"                /// 
			1.strongright "\textit{Republican leaning}"                /// 
			1.q2_attr1_concept_task#1.strongright "\textit{Interaction effects (in order of main eff.)}"                /// 
			, nolab ) replace

*******************************************************
 *TABLE SM.6  
*******************************************************
eststo clear 

foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task##i.strongright [pweight=W8] if cooccurence_attr`x'!=1 &  joedonnot == 2 , cluster(id) 
eststo no`x':  margins ib3.q2_attr`x'_concept_task, post dydx(strongright)
}
reg choice  ib4.q2_attr8_concept_task##i.strongright [pweight=W8] if cooccurence_attr8!=1 &  joedonnot == 2 , cluster(id) // 
eststo no8:  margins ib3.q2_attr8_concept_task, post dydx(strongright)
reg choice  ib4.q2_attr9_concept_task##i.strongright [pweight=W8] if cooccurence_attr9!=1 &  joedonnot == 2 , cluster(id) // 
eststo no9:  margins ib3.q2_attr9_concept_task, post dydx(strongright)

esttab no1 no2 no3 no4 no5 no6 no7 no8 no9  using $tab\TableSM6.tex ///
, label replace nostar p noomitted  /// 
refcat( ///
            1.q2_attr1_concept_task "\textit{Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task "\textit{Russian military casualties}" /// /// 
			1.q2_attr3_concept_task "\textit{Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task "\textit{Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task "\textit{US military aid}" /// /// 
			1.q2_attr6_concept_task "\textit{US economic aid}" /// 
			1.q2_attr7_concept_task "\textit{Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task "\textit{Concessions}"                /// 
			1.q2_attr9_concept_task "\textit{Sovereignty}"                /// 
			1.joedonnot "\textit{Ideology}"                /// 
			1.q2_attr1_concept_task#1.strongright "\textit{Interaction effects (in order of main eff.)}"                /// 
			, nolab )

*******************************************************
 *TABLE SM.7 (VIGNETTE)
*******************************************************
eststo clear
eststo: reg Q13n_1_1 i.vign##i.joedonnot [pweight=W8] if short &  joedonnot <= 2, r
foreach y in 2 3 6 1 4 5 {
eststo: reg q13_2_`y' i.vign##joedonnot [pweight=W8] if short &  joedonnot <= 2, r
}

esttab using $tab\TableSM7.tex ///
, replace  label  nostar p noomitted  //   

*******************************************************
 *FIGURE SM.4  
*******************************************************
eststo clear 

foreach x in 1 2  {

eststo partyid`x' : ///
reg choice  ib3.q2_attr1_concept_task ib3.q2_attr2_concept_task ib3.q2_attr3_concept_task ib3.q2_attr4_concept_task ib3.q2_attr5_concept_task  ib3.q2_attr6_concept_task ib3.q2_attr7_concept_task ib4.q2_attr8_concept_task  ib3.q2_attr9_concept_task  if joedonnot == `x'   [pweight=W8], cluster(id)
}

coefplot (partyid1, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (partyid2, mc(sienna) msymbol(circle) ciopts(color(sienna))), baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Democrat" 4 "Republican")) 
	 
graph export "$fig\FigureSM4.eps", replace 

*******************************************************
 *FIGURE SM.5  
*******************************************************
eststo clear 

foreach x in 1 2  {
reg choice  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  if joedonnot == `x'   [pweight=W8], cluster(id)

eststo partyid`x': margins  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  , post
}

coefplot (partyid1, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (partyid2, mc(sienna) msymbol(circle) ciopts(color(sienna))), baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Democrat" 4 "Republican")) 
	 
graph export "$fig\FigureSM5.eps", replace 

*******************************************************
 *FIGURE SM.6  
*******************************************************
eststo clear 

foreach x in 1 2  {

eststo partyid`x' : ///
reg choice  ib3.q2_attr1_concept_task ib3.q2_attr2_concept_task ib3.q2_attr3_concept_task ib3.q2_attr4_concept_task ib3.q2_attr5_concept_task  ib3.q2_attr6_concept_task ib3.q2_attr7_concept_task ib4.q2_attr8_concept_task  ib3.q2_attr9_concept_task  if strongright == `x' & joe == 2    [pweight=W8], cluster(id)
}

coefplot (partyid1, mc(orange) msymbol(triangle) ciopts(color(orange)) ) (partyid2, mc(sienna) msymbol(circle) ciopts(color(sienna))), baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Moderate Republican" 4 "Strong Republican")) 
	 
	 
graph export "$fig\FigureSM6.eps", replace 

*******************************************************
 *FIGURE SM.7  
*******************************************************
*overall rating difference
ttest Q12B_ if joe == 2 , by(strongright)

*figure
eststo clear 

foreach x in 1 2  {
reg choice  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  if strongright == `x' & joe == 2    [pweight=W8], cluster(id)

eststo partyid`x': margins  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  , post
}

coefplot (partyid1, mc(orange) msymbol(triangle) ciopts(color(orange)) ) (partyid2, mc(sienna) msymbol(circle) ciopts(color(sienna))), baselevel drop(_cons) xline(0) ysize(16) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(1) symysize(vsmall) size(vsmall) order(2 "Moderate Republican" 4 "Strong Republican")) 
	 

graph export "$fig\FigureSM7.eps", replace

*******************************************************
 *FIGURE SM.8  
*******************************************************
*overall rating difference
mean Q12B_, over(demrep)
ttest Q12B_ if demrep < 3 , by(demrep)
sum Q12B_ if demrep < 3 
sum Q12B_ if joedonnot < 3 

*figure
eststo clear 

foreach x in 1 2  {
reg Q12B_  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  if joedonnot == `x'   [pweight=W8], cluster(id)

eststo partyid`x': margins  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  , post
}

foreach x in 1 2  {
reg Q12B_  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  if demrep == `x'   [pweight=W8], cluster(id)

eststo partym2id`x': margins  ib1.q2_attr1_concept_task ib1.q2_attr2_concept_task ib1.q2_attr3_concept_task ib1.q2_attr4_concept_task ib1.q2_attr5_concept_task  ib1.q2_attr6_concept_task ib1.q2_attr7_concept_task ib1.q2_attr8_concept_task  ib1.q2_attr9_concept_task  , post
}


coefplot (partyid1, mc(edkblue) msymbol(triangle) ciopts(color(edkblue)) ) (partym2id1, msymbol(square) mc(edkblue) ciopts(color(edkblue)) ) (partyid2, mc(sienna) msymbol(circle) ciopts(color(sienna))) (partym2id2, msymbol(diamond) mc(sienna) ciopts(color(sienna))), baselevel drop(_cons) xline(0) ysize(30) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 msize(small) xlab(, labs(vsmall))   legend(row(2) symysize(vsmall) size(vsmall) order(2 "Democrat (excl. non-vot.)" 4 "Democrat (incl. non-voters)" 6 "Republican (excl. non-vot.)" 8 "Republican (incl. non-voters)")) name(one, replace) 
	 
	 
graph export "$fig\FigureSM8.eps", replace 

*******************************************************
 *FIGURE SM.9  
*******************************************************
eststo clear 

foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & joedonnot == 1 , cluster(id) 
eststo no`x'joe:  margins ib3.q2_attr`x'_concept_task, post
}
reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & joedonnot == 1 , cluster(id) // 
eststo no8joe:  margins ib3.q2_attr8_concept_task, post
reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & joedonnot == 1 , cluster(id) // 
eststo no9joe:  margins ib3.q2_attr9_concept_task, post


foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & joedonnot == 2 , cluster(id) // 
eststo no`x'don:   margins ib3.q2_attr`x'_concept_task, post 
}
reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & joedonnot == 2 , cluster(id) // 
eststo no8don: margins ib3.q2_attr8_concept_task, post
reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & joedonnot == 2 , cluster(id) // 
eststo no9don: margins ib3.q2_attr9_concept_task, post

foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & demrep == 1 , cluster(id) 
eststo no`x'dem:  margins ib3.q2_attr`x'_concept_task, post
}
reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & demrep == 1 , cluster(id) // 
eststo no8dem:  margins ib3.q2_attr8_concept_task, post
reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & demrep == 1 , cluster(id) // 
eststo no9dem:  margins ib3.q2_attr9_concept_task, post


foreach x in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`x'_concept_task [pweight=W8] if cooccurence_attr`x'!=1 & demrep == 2 , cluster(id) // 
eststo no`x'rep:   margins ib3.q2_attr`x'_concept_task, post 
}
reg choice  ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & demrep == 2 , cluster(id) // 
eststo no8rep: margins ib3.q2_attr8_concept_task, post
reg choice  ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & demrep == 2 , cluster(id) // 
eststo no9rep: margins ib3.q2_attr9_concept_task, post
 

coefplot  ///  
 (no1joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) /// 
 (no2joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no3joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no4joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no5joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no6joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no7joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no8joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no9joe , msymbol(triangle) mc(edkblue) ciopts(color(edkblue))) ///
 (no1dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) /// 
 (no2dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no3dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no4dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no5dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no6dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no7dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no8dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no9dem , msymbol(diamond) mc(edkblue) ciopts(color(edkblue))) ///
 (no1don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no2don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no3don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no4don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no5don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no6don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no7don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no8don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no9don , msymbol(circle) mc(sienna) ciopts(color(sienna))) /// 
 (no1rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no2rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no3rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no4rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no5rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no6rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no7rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no8rep , msymbol(square) mc(sienna) ciopts(color(sienna))) /// 
 (no9rep , msymbol(square) mc(sienna) ciopts(color(sienna))) ///   
, baselevel drop(_cons) xline(0) ysize(30) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall))   legend(row(2) symysize(vsmall) size(vsmall) order(2 "Democrat (excl. non-vot.)" 22 "Democrat (incl. non-voters)" 42 "Republican (excl. non-vot.)" 62 "Republican (incl. non-voters)")) 

 	 graph export "$fig\FigureSM9.eps", replace

*******************************************************
 *FIGURE SM.10  
*******************************************************
eststo clear 

foreach x in 1 2  {
foreach y in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`y'_concept_task [pweight=W8] if cooccurence_attr`y'!=1 & strongright == `x' & joe == 2, cluster(id) 
eststo partyid`x'attr`y' : margins ib3.q2_attr`y'_concept_task, post
}

reg choice ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & strongright == `x' & joe == 2 , cluster(id)
eststo partyid`x'attr8: margins ib4.q2_attr8_concept_task, post

reg choice ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & strongright == `x' & joe == 2 , cluster(id)
eststo partyid`x'attr9: margins ib3.q2_attr9_concept_task, post
}

foreach x in 1 2  {
foreach y in 1 2 3 4 5 6 7 {
reg choice  ib3.q2_attr`y'_concept_task [pweight=W8] if cooccurence_attr`y'!=1 & strongright == `x' & demrep == 2, cluster(id) 
eststo partym2id`x'attr`y' : margins ib3.q2_attr`y'_concept_task, post
}

reg choice ib4.q2_attr8_concept_task [pweight=W8] if cooccurence_attr8!=1 & strongright == `x' & demrep == 2 , cluster(id)
eststo partym2id`x'attr8: margins ib4.q2_attr8_concept_task, post

reg choice ib3.q2_attr9_concept_task [pweight=W8] if cooccurence_attr9!=1 & strongright == `x' & demrep == 2 , cluster(id)
eststo partym2id`x'attr9: margins ib3.q2_attr9_concept_task, post
}

coefplot ///
(partyid1attr1, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr2, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr3, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr4, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr5, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr6, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr7, mc(orange) msymbol(triangle) ciopts(color(orange)))  	///
(partyid1attr8, mc(orange) msymbol(triangle) ciopts(color(orange)))  ///	
(partyid1attr9, mc(orange) msymbol(triangle) ciopts(color(orange)))  ///
(partym2id1attr1, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr2, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr3, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr4, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr5, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr6, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr7, mc(orange) msymbol(square) ciopts(color(orange)))  	///
(partym2id1attr8, mc(orange) msymbol(square) ciopts(color(orange)))  ///	
(partym2id1attr9, mc(orange) msymbol(square) ciopts(color(orange)))  ///
(partyid2attr1, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr2, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr3, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr4, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr5, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr6, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr7, mc(sienna) msymbol(circle) ciopts(color(sienna)))  	///
(partyid2attr8, mc(sienna) msymbol(circle) ciopts(color(sienna)))  ///	
(partyid2attr9, mc(sienna) msymbol(circle) ciopts(color(sienna)))  ///
(partym2id2attr1, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr2, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr3, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr4, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr5, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr6, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr7, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  	///
(partym2id2attr8, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  ///	
(partym2id2attr9, mc(sienna) msymbol(diamond) ciopts(color(sienna)))  ///
, baselevel drop(_cons) xline(0) ysize(30) xsize(20) xline(0.5)  yline(21 32 38, lstyle(p20) lpattern(dash)) yscale(alt axis(2)) /// 
groups(?.q2_attr1_concept_task ?.q2_attr2_concept_task ?.q2_attr3_concept_task ?.q2_attr4_concept_task = `""{bf:Human suffering /}" "{bf:destruction}""' ///
		 ?.q2_attr5_concept_task ?.q2_attr6_concept_task = `""{bf:Support}" "{bf:costs}""' ///
		 ?.q2_attr7_concept_task =  `""{bf:Strategic}" "{bf:risk}""' /// 
		 		 ?.q2_attr8_concept_task ?.q2_attr9_concept_task =  `""{bf:Political}" "{bf:costs}""' /// 
		 , labsize(vsmall)  angle(rvertical)) /// 
		  headings( ///
            1.q2_attr1_concept_task = "{it:Ukrainian military casualties}" /// 
			1.q2_attr2_concept_task = "{it:Russian military casualties}" /// /// 
			1.q2_attr3_concept_task = "{it:Ukrainian civilian casualties}" /// /// 
			1.q2_attr4_concept_task = "{it:Ukrainian infrastructure loss}" /// /// 
			1.q2_attr5_concept_task = "{it:US military aid}" /// /// 
			1.q2_attr6_concept_task = "{it:US economic aid}" /// 
			1.q2_attr7_concept_task = "{it:Nuclear strike risk}"                /// 
			1.q2_attr8_concept_task = "{it:Concessions}"                /// 
			1.q2_attr9_concept_task = "{it:Sovereignty}"                /// 
			) /// 
			coeflabels(,labsize(vsmall)) ///
	 msize(small) xlab(, labs(vsmall)) ///
	 legend(row(2) symysize(vsmall) size(vsmall) order(2 "Moderate Rep. (excl. non-vot.)" 22 "Moderate Rep. (incl. non-vot.)" 42 "Strong Rep. (excl. non-vot.)" 62 "Strong Rep. (incl. non-vot.)")) name(two, replace) 
 
  	 graph export "$fig\FigureSM10.eps", replace

*******************************************************
 *TABLE SM.8  
*******************************************************
*table layout manually adapted in manuscript
*for column indicators by FDR 0.05 / 0.3: take p-values from respective linear regression table; sort in ascending order; add line numbering in ascending order; add cutoff value by taking line number divided by total tests (=19), times FDR value; assign cross for all tests where there is one p-value below/equal with actual p-value smaller than cut-off; add crosses to table 

xi i.q2_attr1_concept_task*i.joedonnot  , prefix(att1) noomit
xi i.q2_attr2_concept_task*i.joedonnot  , prefix(att2) noomit
xi i.q2_attr3_concept_task*i.joedonnot  , prefix(att3) noomit
xi i.q2_attr4_concept_task*i.joedonnot  , prefix(att4) noomit
xi i.q2_attr5_concept_task*i.joedonnot  , prefix(att5) noomit
xi i.q2_attr6_concept_task*i.joedonnot  , prefix(att6) noomit
xi i.q2_attr7_concept_task*i.joedonnot  , prefix(att7) noomit
xi i.q2_attr8_concept_task*i.joedonnot  , prefix(att8) noomit
xi i.q2_attr9_concept_task*i.joedonnot  , prefix(att9) noomit



mhtreg ///
(choice att1q2_Xjoe_2_2 att1q2_attr_2 att1q2_attr_1 att1joedonn_2 att1q2_Xjoe_1_2  if cooccurence_attr1!=1 & joedonnot <= 2   ) ///
(choice att1q2_Xjoe_1_2 att1q2_attr_2 att1q2_attr_1 att1joedonn_2 att1q2_Xjoe_2_2  if cooccurence_attr1!=1  & joedonnot <= 2   ) ///
(choice att2q2_Xjoe_2_2 att2q2_attr_2 att2q2_attr_1 att2joedonn_2 att2q2_Xjoe_1_2  if cooccurence_attr2!=1  & joedonnot <= 2  ) ///
(choice att2q2_Xjoe_1_2 att2q2_attr_2 att2q2_attr_1 att2joedonn_2 att2q2_Xjoe_2_2  if cooccurence_attr2!=1  & joedonnot <= 2   ) ///
(choice att3q2_Xjoe_2_2 att3q2_attr_2 att3q2_attr_1 att3joedonn_2 att3q2_Xjoe_1_2  if cooccurence_attr3!=1 & joedonnot <= 2   ) ///
(choice att3q2_Xjoe_1_2 att3q2_attr_2 att3q2_attr_1 att3joedonn_2 att3q2_Xjoe_2_2  if cooccurence_attr3!=1 & joedonnot <= 2    ) ///
(choice att4q2_Xjoe_2_2 att4q2_attr_2 att4q2_attr_1 att4joedonn_2 att4q2_Xjoe_1_2  if cooccurence_attr4!=1  & joedonnot <= 2  ) ///
(choice att4q2_Xjoe_1_2 att4q2_attr_2 att4q2_attr_1 att4joedonn_2 att4q2_Xjoe_2_2  if cooccurence_attr4!=1 & joedonnot <= 2    ) ///
(choice att5q2_Xjoe_2_2 att5q2_attr_2 att5q2_attr_1 att5joedonn_2 att5q2_Xjoe_1_2  if cooccurence_attr5!=1  & joedonnot <= 2  ) ///
(choice att5q2_Xjoe_1_2 att5q2_attr_2 att5q2_attr_1 att5joedonn_2 att5q2_Xjoe_2_2  if cooccurence_attr5!=1  & joedonnot <= 2   ) ///
(choice att6q2_Xjoe_2_2 att6q2_attr_2 att6q2_attr_1 att6joedonn_2 att6q2_Xjoe_1_2  if cooccurence_attr6!=1 & joedonnot <= 2   ) ///
(choice att6q2_Xjoe_1_2 att6q2_attr_2 att6q2_attr_1 att6joedonn_2 att6q2_Xjoe_2_2  if cooccurence_attr6!=1 & joedonnot <= 2    ) ///
(choice att7q2_Xjoe_2_2 att7q2_attr_2 att7q2_attr_1 att7joedonn_2 att7q2_Xjoe_1_2  if cooccurence_attr7!=1  & joedonnot <= 2  ) ///
(choice att7q2_Xjoe_1_2 att7q2_attr_2 att7q2_attr_1 att7joedonn_2 att7q2_Xjoe_2_2  if cooccurence_attr7!=1  & joedonnot <= 2   ) ///
(choice att8q2_Xjoe_2_2 att8q2_attr_2 att8q2_attr_1 att8q2_attr_3 att8joedonn_2 att8q2_Xjoe_1_2 att8q2_Xjoe_3_2 if cooccurence_attr8!=1  & joedonnot <= 2  ) ///
(choice att8q2_Xjoe_1_2 att8q2_attr_2 att8q2_attr_1 att8q2_attr_3 att8joedonn_2 att8q2_Xjoe_2_2 att8q2_Xjoe_3_2 if cooccurence_attr8!=1  & joedonnot <= 2   ) ///
(choice att8q2_Xjoe_3_2 att8q2_attr_2 att8q2_attr_1 att8q2_attr_3 att8joedonn_2 att8q2_Xjoe_2_2 att8q2_Xjoe_1_2 if cooccurence_attr8!=1  & joedonnot <= 2   ) ///
(choice att9q2_Xjoe_2_2 att9q2_attr_2 att9q2_attr_1 att3joedonn_2 att9q2_Xjoe_1_2  if cooccurence_attr9!=1  & joedonnot <= 2  ) ///
(choice att9q2_Xjoe_1_2 att9q2_attr_2 att9q2_attr_1 att3joedonn_2 att9q2_Xjoe_2_2  if cooccurence_attr9!=1  & joedonnot <= 2   ) ///
, cluster(id) bootstrap(5000) cltype(3) seed(2025)

*to get to results presented in paper, table was manually exported to TeX: 
*First, take the output and attach labels for Attribute and Interaction as per first independent variable used in the regression equation. 
*Second, retain columns for coefficient, p (=unadjusted p-value), and pthm3_1(=adjusted p-value) 
*XXXX==> base content of the output table

*Third, add column indicators by FDR 0.05 / 0.3: take p (=unadjusted p-values) from the output, yielding a 1x19 matrix; sort this in ascending order of p-values; add column with line numbering in ascending order; add column with a cutoff value for each row, by calculating for each row: line number divided by total tests (=19) times FDR value; assign cross for all tests where there is one unadjusted p-value small than or equal the cut-off; assign cross for all tests where one line number below has a cross; 
*This table looks like this:
/*
line 	p 		FDR  		FDR 		Cross	Cross
number	unadj.	0,05		0,3			0,05	0,3
------------------------------------------------------
1		.0002	0,002631579	0,015789474	x		x
2		.0002	0,005263158	0,031578947	x		x
3		.0068	0,007894737	0,047368421	x		x
4		.009	0,010526316	0,063157895	x		x
5		.0554	0,013157895	0,078947368			x
6		.118	0,015789474	0,094736842		
7		.1344	0,018421053	0,110526316		
8		.1442	0,021052632	0,126315789		
9		.1902	0,023684211	0,142105263		
10		.2172	0,026315789	0,157894737		
11		.2426	0,028947368	0,173684211		
12		.2978	0,031578947	0,189473684		
13		.4948	0,034210526	0,205263158		
14		.6488	0,036842105	0,221052632		
15		.7062	0,039473684	0,236842105		
16		.7242	0,042105263	0,252631579		
17		.8084	0,044736842	0,268421053		
18		.8546	0,047368421	0,284210526		
19		.9004	0,05		0,3		
------------------------------------------------------
*/
*XXXX==> add columns FDR 0.05/0.3 to output table and assign crosses accordingly



*******************************************************
 *TABLE SM.9  
*******************************************************
*table layout manually adapted in manuscript

xi i.q2_attr1_concept_task*i.strongright  , prefix(att1) noomit
xi i.q2_attr2_concept_task*i.strongright  , prefix(att2) noomit
xi i.q2_attr3_concept_task*i.strongright  , prefix(att3) noomit
xi i.q2_attr4_concept_task*i.strongright  , prefix(att4) noomit
xi i.q2_attr5_concept_task*i.strongright  , prefix(att5) noomit
xi i.q2_attr6_concept_task*i.strongright  , prefix(att6) noomit
xi i.q2_attr7_concept_task*i.strongright  , prefix(att7) noomit
xi i.q2_attr8_concept_task*i.strongright  , prefix(att8) noomit
xi i.q2_attr9_concept_task*i.strongright  , prefix(att9) noomit



mhtreg ///
(choice att1q2_Xstr_2_2 att1q2_attr_2 att1q2_attr_1 att1strongr_2 att1q2_Xstr_1_2  if cooccurence_attr1!=1 & joedonnot == 2   ) ///
(choice att1q2_Xstr_1_2 att1q2_attr_2 att1q2_attr_1 att1strongr_2 att1q2_Xstr_2_2  if cooccurence_attr1!=1 & joedonnot == 2    ) ///
(choice att2q2_Xstr_2_2 att2q2_attr_2 att2q2_attr_1 att2strongr_2 att2q2_Xstr_1_2  if cooccurence_attr2!=1 & joedonnot == 2   ) ///
(choice att2q2_Xstr_1_2 att2q2_attr_2 att2q2_attr_1 att2strongr_2 att2q2_Xstr_2_2  if cooccurence_attr2!=1 & joedonnot == 2    ) ///
(choice att3q2_Xstr_2_2 att3q2_attr_2 att3q2_attr_1 att3strongr_2 att3q2_Xstr_1_2  if cooccurence_attr3!=1 & joedonnot == 2   ) ///
(choice att3q2_Xstr_1_2 att3q2_attr_2 att3q2_attr_1 att3strongr_2 att3q2_Xstr_2_2  if cooccurence_attr3!=1 & joedonnot == 2    ) ///
(choice att4q2_Xstr_2_2 att4q2_attr_2 att4q2_attr_1 att4strongr_2 att4q2_Xstr_1_2  if cooccurence_attr4!=1 & joedonnot == 2   ) ///
(choice att4q2_Xstr_1_2 att4q2_attr_2 att4q2_attr_1 att4strongr_2 att4q2_Xstr_2_2  if cooccurence_attr4!=1 & joedonnot == 2    ) ///
(choice att5q2_Xstr_2_2 att5q2_attr_2 att5q2_attr_1 att5strongr_2 att5q2_Xstr_1_2  if cooccurence_attr5!=1 & joedonnot == 2   ) ///
(choice att5q2_Xstr_1_2 att5q2_attr_2 att5q2_attr_1 att5strongr_2 att5q2_Xstr_2_2  if cooccurence_attr5!=1 & joedonnot == 2    ) ///
(choice att6q2_Xstr_2_2 att6q2_attr_2 att6q2_attr_1 att6strongr_2 att6q2_Xstr_1_2  if cooccurence_attr6!=1 & joedonnot == 2   ) ///
(choice att6q2_Xstr_1_2 att6q2_attr_2 att6q2_attr_1 att6strongr_2 att6q2_Xstr_2_2  if cooccurence_attr6!=1 & joedonnot == 2    ) ///
(choice att7q2_Xstr_2_2 att7q2_attr_2 att7q2_attr_1 att7strongr_2 att7q2_Xstr_1_2  if cooccurence_attr7!=1 & joedonnot == 2   ) ///
(choice att7q2_Xstr_1_2 att7q2_attr_2 att7q2_attr_1 att7strongr_2 att7q2_Xstr_2_2  if cooccurence_attr7!=1 & joedonnot == 2    ) ///
(choice att8q2_Xstr_2_2 att8q2_attr_2 att8q2_attr_1 att8q2_attr_3 att8strongr_2 att8q2_Xstr_1_2 att8q2_Xstr_3_2 if cooccurence_attr8!=1 & joedonnot == 2   ) ///
(choice att8q2_Xstr_1_2 att8q2_attr_2 att8q2_attr_1 att8q2_attr_3 att8strongr_2 att8q2_Xstr_2_2 att8q2_Xstr_3_2 if cooccurence_attr8!=1 & joedonnot == 2    ) ///
(choice att8q2_Xstr_3_2 att8q2_attr_2 att8q2_attr_1 att8q2_attr_3 att8strongr_2 att8q2_Xstr_2_2 att8q2_Xstr_1_2 if cooccurence_attr8!=1 & joedonnot == 2    ) ///
(choice att9q2_Xstr_2_2 att9q2_attr_2 att9q2_attr_1 att3strongr_2 att9q2_Xstr_1_2  if cooccurence_attr9!=1 & joedonnot == 2   ) ///
(choice att9q2_Xstr_1_2 att9q2_attr_2 att9q2_attr_1 att3strongr_2 att9q2_Xstr_2_2  if cooccurence_attr9!=1 & joedonnot == 2    ) ///
, cluster(id) bootstrap(5000) cltype(3) seed(2025)

*to get to results presented in paper, table was manually exported to TeX: 
*First, take the output and attach labels for Attribute and Interaction as per first independent variable used in the regression equation. 
*Second, retain columns for coefficient, p (=unadjusted p-value), and pthm3_1(=adjusted p-value) 
*XXXX==> base content of the output table

*Third, add column indicators by FDR 0.05 / 0.3: take p (=unadjusted p-values) from the output, yielding a 1x19 matrix; sort this in ascending order of p-values; add column with line numbering in ascending order; add column with a cutoff value for each row, by calculating for each row: line number divided by total tests (=19) times FDR value; assign cross for all tests where there is one unadjusted p-value small than or equal the cut-off; assign cross for all tests where one line number below has a cross; 
*This table looks like this:
/*
line 	p 		FDR  		FDR 		Cross	Cross
number	unadj.	0,05		0,3			0,05	0,3
------------------------------------------------------
1		0,0186	0,002631579	0,015789474			x
2		0,0366	0,005263158	0,031578947			x
3		0,0434	0,007894737	0,047368421			x
4		0,0758	0,010526316	0,063157895		
5		0,118	0,013157895	0,078947368		
6		0,1214	0,015789474	0,094736842		
7		0,1928	0,018421053	0,110526316		
8		0,2006	0,021052632	0,126315789		
9		0,2496	0,023684211	0,142105263		
10		0,3006	0,026315789	0,157894737		
11		0,3326	0,028947368	0,173684211		
12		0,3658	0,031578947	0,189473684		
13		0,4094	0,034210526	0,205263158		
14		0,4204	0,036842105	0,221052632		
15		0,5266	0,039473684	0,236842105		
16		0,5836	0,042105263	0,252631579		
17		0,6462	0,044736842	0,268421053		
18		0,8654	0,047368421	0,284210526		
19		0,9448	0,05		0,3		
------------------------------------------------------
/*
*XXXX==> add columns FDR 0.05/0.3 to output table and assign crosses accordingly



*---------------------------------------------------------------*
*****************************************************************
* * END
*****************************************************************
*---------------------------------------------------------------*

